home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / Blitz2 / BlitzFaq / FaqLists / 2palettefade.txt < prev    next >
Encoding:
Text File  |  1996-08-31  |  568 b   |  26 lines
  1. #COLORS=64
  2.  
  3. Statement FadePals {sour,dest,delay}
  4. SHARED palsr(),palsg(),palsb()
  5. For a=0 To #COLORS-1
  6.   PaletteInfo sour
  7.   begr=AGAPalRed(a)
  8.   begg=AGAPalGreen(a)
  9.   begb=AGAPalBlue(a)
  10.   PaletteInfo dest
  11.   finr=AGAPalRed(a)
  12.   fing=AGAPalGreen(a)
  13.   finb=AGAPalBlue(a)
  14.   palsr(a)=(finr-begr)/delay
  15.   palsg(a)=(fing-begg)/delay
  16.   palsb(a)=(finb-begb)/delay
  17. Next a
  18. PaletteInfo sour
  19. For a=1 To delay
  20.   For b=0 To #COLORS-1
  21.     AGAPalRGB dest,b,AGAPalRed(b)+palsr(b)*a,AGAPalGreen(b)+palsg(b)*a,AGAPalBlue(b)+palsb(b)*a
  22.   Next b
  23.   VWait
  24.   ShowPalette dest
  25. Next a
  26. End Statement